Strict

Import agfx

Global myTmpScreen:TTmpScreen

Class TAgfx_test_app Extends TFramework

	Method OnCreate:Int()
		
		Super.OnCreate()
				
		myTmpScreen = New TTmpScreen		
		myTmpScreen.Prepare()
		
		Return 0
	End
	
	#Rem OPTIONAL 
	
	Method OnUpdate:Int()
		Super.OnUpdate()
	End
	
	Method OnRender:Int()
		Super.OnRender()
			
	End
	
	Method OnResume:Int()
	
	End
	
	Method OnSuspend:Int()
	
	End
	
	Method OnPause:Int()
	
	End
	
	Method OnLoading:Int()
	
	End
	
	#End
	
End


Class TTmpScreen Extends TScreen
	
	' START when app is created
	Method Start:Void()
		Print("APP: Start")
	End
	
	' main app logic loop update
	Method Update:Void()
		Print("APP: Update")
	End
	
	' main app render loop
	Method Render:Void()
		Cls
		Print("APP: Render")
	End
End
